home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Aldus / US English / PageMaker 5.0 / PageMaker 5.0 68K / PM5.0 TV RSRC / PM5.0 TV RSRC.rsrc / IMPS_1 < prev    next >
Encoding:
Text File  |  1993-08-26  |  4.2 KB  |  60 lines
  1. ö%%BeginResource: procset IMAGE_PS 1.0 1
  2. %%Copyright: (C) Copyright 1993 Aldus Corporation. All Rights Reserved.
  3. %%Version:1.0 1
  4. /IMdict 100 dict def IMdict begin/bdef{bind def}bind def/xdef{exch def}bdef
  5. /ldef{load def}bdef/ndef{1 index where{pop pop pop}{dup xcheck{bind}if def}
  6. ifelse}bdef/setoverprint{pop}ndef/findcmykcustomcolor{5/packedarray where{pop
  7. packedarray}{array astore readonly}ifelse}ndef/findcmykprocesscolor{5
  8. /packedarray where{pop packedarray}{array astore readonly}ifelse}ndef
  9. /setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}
  10. repeat systemdict/setrgbcolor get exec pop}ndef/setcustomcolor{exch aload pop
  11. pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndef/setprocesscolor{exch
  12. aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndef
  13. /separationimage{image}ndef/iB^{/_imprcs? xdef/_imt xdef dup null ne{_imprcs?{
  14. findcmykprocesscolor}{findcmykcustomcolor}ifelse}if/_imc xdef _imc null eq{1
  15. _imt sub setseparationgray}{_imprcs?{_imc _imt setprocesscolor}{_imc _imt
  16. setcustomcolor}ifelse}ifelse}bdef/iA^{setoverprint}bdef/level2/languagelevel
  17. where{pop languagelevel 1 ne}{false}ifelse def/_colorexists? level2{statusdict
  18. /processcolors known{statusdict/processcolors get exec}{1}ifelse 4 eq def}{
  19. systemdict/setcmykcolor known def}ifelse/IMcolorbuf{0 1 2 index length 1 sub{
  20. dup 2 index exch get 255 exch sub 2 index 3 1 roll put}for}bdef/IMsetcmyk{
  21. aload pop/_ik xdef/_iy xdef/_im xdef/_ic xdef}bdef/iC^{/packedarray where{pop
  22. dup type/packedarraytype eq 2 index type/packedarraytype eq or}{false}ifelse{
  23. /proc2 exch cvlit def/proc1 exch cvlit def proc1 aload pop proc2 aload pop
  24. proc1 length proc2 length add packedarray cvx}{/proc2 exch cvlit def/proc1
  25. exch cvlit def/newproc proc1 length proc2 length add array def newproc 0 proc1
  26. putinterval newproc proc1 length proc2 putinterval newproc cvx}ifelse}bdef
  27. /currentcolortransfer{currenttransfer dup dup dup}ndef/setcolortransfer{
  28. systemdict begin settransfer end pop pop pop}ndef/customcolorimage{
  29. _colorexists?{aload pop pop 4 array astore IMsetcmyk currentcolortransfer{_ik
  30. mul _ik sub 1 add}iC^ 4 1 roll{_iy mul _iy sub 1 add}iC^ 4 1 roll{_im mul _im
  31. sub 1 add}iC^ 4 1 roll{_ic mul _ic sub 1 add}iC^ 4 1 roll setcolortransfer
  32. /_mbuf 0 string def/_ybuf 0 string def/_kbuf 0 string def{IMcolorbuf dup
  33. length _mbuf length ne{dup length dup dup/_mbuf exch string def/_ybuf exch
  34. string def/_kbuf exch string def}if dup _mbuf copy _ybuf copy _kbuf copy pop}
  35. iC^{_mbuf}{_ybuf}{_kbuf}true 4 colorimage}{aload pop pop 4 array astore
  36. IMsetcmyk iE^ currenttransfer{_imtint mul 1 _imtint sub add}iC^ settransfer
  37. image}ifelse}ndef/iE^{_ic .3 mul _im .59 mul _iy .11 mul _ik add add add dup 1
  38. gt{pop 1}if/_imtint xdef}bdef/iF^{/_imprcs? xdef/_imspotint xdef _colorexists?
  39. {currentcolortransfer{_imspotint mul 1 _imspotint sub add}iC^ 4 1 roll{
  40. _imspotint mul 1 _imspotint sub add}iC^ 4 1 roll{_imspotint mul 1 _imspotint
  41. sub add}iC^ 4 1 roll{_imspotint mul 1 _imspotint sub add}iC^ 4 1 roll
  42. setcolortransfer}{currenttransfer{_imspotint mul 1 _imspotint sub add}iC^
  43. settransfer}ifelse findcmykcustomcolor customcolorimage}ndef/iG^{/inv xdef/h
  44. xdef/w xdef/AsBin xdef/imbuf w 7 add 8 idiv string def w h inv[1 0 0 1 0 0]{
  45. currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}imagemask}bdef
  46. /isCL^{/AsProcess xdef/TintPercent xdef/ColorName xdef/_k xdef/_y xdef/_m xdef
  47. /_c xdef/OverPrint xdef/bits xdef/h xdef/w xdef/AsBin xdef/imbuf w bits mul 7
  48. add 8 idiv string def w h bits[1 0 0 1 0 0]{currentfile imbuf AsBin{readstring
  49. }{readhexstring}ifelse pop}OverPrint iA^ _c _m _y _k ColorName TintPercent
  50. AsProcess iF^}bdef/iI^{/OverPrint xdef/bits xdef/h xdef/w xdef/AsBin xdef
  51. /imbuf w bits mul 7 add 8 idiv string def w h bits[1 0 0 1 0 0]{currentfile
  52. imbuf AsBin{readstring}{readhexstring}ifelse pop}OverPrint iA^ separationimage
  53. }bdef/iJ^{/bits xdef/h xdef/w xdef/AsBin xdef/imbuf w bits mul 3 mul 7 add 8
  54. idiv string def w h bits[1 0 0 1 0 0]{currentfile imbuf AsBin{readstring}{
  55. readhexstring}ifelse pop}false 3 colorimage}bdef/iK^{/bits xdef/h xdef/w xdef
  56. /AsBin xdef/imbuf w bits mul 4 mul 7 add 8 idiv string def w h bits[1 0 0 1 0
  57. 0]{currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}false 4
  58. colorimage}bdef end
  59. %%EndResource
  60.